(sign_extend_lisp_int): Use EMACS_INT.

diff --git a/src/data.c b/src/data.c
index 5eceec4574f57fb5f3f3c14a453b1911a7359c69..686dffe114ba720fe2ce8a11cdb7d7c4ce988c17 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -147,12 +147,12 @@ int sign_extend_temp;
 
 int
 sign_extend_lisp_int (num)
-     int num;
+     EMACS_INT num;
 {
-  if (num & (1 << (VALBITS - 1)))
-    return num | ((-1) << VALBITS);
+  if (num & (((EMACS_INT) 1) << (VALBITS - 1)))
+    return num | (((EMACS_INT) (-1)) << VALBITS);
   else
-    return num & ((1 << VALBITS) - 1);
+    return num & ((((EMACS_INT) 1) << VALBITS) - 1);
 }
 \f
 /* Data type predicates */